Caption = "Please choose your wager or click on the Daily Double button. If Double Jeopardy or Final Jeopardy starts, click on the approppriate button."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1215
Left = 4920
TabIndex = 13
Top = 240
Width = 1815
End
Begin Menu game
Caption = "&Game"
Begin Menu new
Caption = "&New"
Shortcut = {F2}
End
Begin Menu ex
Caption = "E&xit"
Shortcut = ^X
End
Begin Menu dash
Caption = "-"
End
Begin Menu abt
Caption = "&About Jeopardy Scorekeeper..."
End
End
Begin Menu options
Caption = "&Options"
Begin Menu savetot
Caption = "&Save Totals on New Game"
Shortcut = ^S
End
Begin Menu bkgcol
Caption = "&Background Color"
Begin Menu red
Caption = "&Red"
End
Begin Menu yellow
Caption = "&Yellow"
End
Begin Menu green
Caption = "&Green"
End
Begin Menu blue
Caption = "&Blue"
End
Begin Menu purple
Caption = "&Purple"
End
Begin Menu bluegray
Caption = "Blue-gr&ay"
End
Begin Menu gray
Caption = "G&ray"
End
Begin Menu white
Caption = "&White"
Checked = -1 'True
End
End
End
Begin Menu general
Caption = "&Help"
End
Sub about_Click ()
MsgBox "Jeopardy! Challenger -- by Jonathan D. Persky. Made in Microsoft Visual Basic 1.0. Requires Microsoft Windows version 3.0 or greater. Must be accompanied by the file VBRUN100.DLL.
1992, Jonathan D. Persky.", 0, "Jeopardy! Challenger"
End Sub
Sub abt_Click ()
Load about
about.Show
End Sub
Sub blue_Click ()
red.checked = 0
yellow.checked = 0
green.checked = 0
blue.checked = -1
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
white.checked = 0
k = &HFFFF00
form1.backcolor = k
label1.backcolor = k
label2.backcolor = k
label3.backcolor = k
label4.backcolor = k
End Sub
Sub bluegray_Click ()
red.checked = 0
yellow.checked = 0
green.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = -1
gray.checked = 0
white.checked = 0
k = &H808000
form1.backcolor = k
label1.backcolor = k
label2.backcolor = k
label3.backcolor = k
label4.backcolor = k
End Sub
Sub Command1_Click (index As Integer)
label3.caption = command1(index).caption
p = Val(command1(index).caption)
direc.caption = "Please select the appropriate button if you're right or wrong."
End Sub
Sub Command2_Click ()
response$ = InputBox$("Enter your wager, please:", "Daily Double", "")
If response$ = "" Then
label3.caption = "0"
Exit Do
ElseIf Val(label2.caption) > 0 And Val(label2.caption) < Val(response$) Then
Beep
label3.caption = "0"
MsgBox "You have wagered more than you have. Please choose another wager.", 16, "You Can't Do That!"
ElseIf Val(label2.caption) < 1 And Val(response$) > 500 Then
Beep
label3.caption = "0"
MsgBox "Sorry, if you have a negative score you can only wager up to $500.", 16, "You Can't Do That!"
ElseIf Val(response$) < 0 Then
Beep
label3.caption = "0"
MsgBox "Nice try, but you can only wager something positive.", 16, "Didn't Fool Me"
label3.caption = response$
p = Val(label3.caption)
Exit Do
End If
direc.caption = "Please select the appropriate button if you are right or wrong."
End Sub
Sub Command3_Click ()
direc.caption = "Please choose your wager or click on the Daily Double button. If Double Jeopardy or Final Jeopardy starts, click on the approppriate button."
label2.caption = Str$(Val(label2.caption) + p)
If t = 1 Then
For q = 1 To 10
command1(q).enabled = 0
Next q
command2.enabled = 0
command3.enabled = 0
command4.enabled = 0
command5.enabled = 0
MsgBox "Game Over", 64, "Jeopardy Scorekeeper"
End If
End Sub
Sub Command4_Click ()
direc.caption = "Please choose your wager or click on the Daily Double button. If Double Jeopardy or Final Jeopardy starts, click on the approppriate button."
label2.caption = Str$(Val(label2.caption) - p)
If t = 1 Then
For q = 1 To 5
command1(q).enabled = 0
Next q
command2.enabled = 0
command3.enabled = 0
command4.enabled = 0
command5.enabled = 0
MsgBox "Game Over", 64, "Jeopardy Scorekeeper"
End If
End Sub
Sub Command5_Click ()
If Val(label2.caption) < 1 Then
MsgBox "Sorry, you haven't earned enough money to play Final Jeopardy!.", 16, "In the Red"
Exit Sub
End If
response$ = InputBox$("Enter your wager, please", "Final Jeopardy!", "")
If response$ = "" Then
label3.caption = "0"
Exit Do
ElseIf Val(label2.caption) > 0 And Val(label2.caption) < Val(response$) Then
Beep
label3.caption = "0"
MsgBox "You have wagered more than you have. Please choose another wager.", 16, "You Can't Do That!"
ElseIf Val(response$) < 0 Then
Beep
label3.caption = "0"
MsgBox "Nice try, but you can only wager something positive.", 16, "Didn't Fool Me"
label3.caption = response$
p = Val(label3.caption)
t = 1
Exit Do
End If
direc.caption = "Please select the appropriate button if you are right or wrong."
End Sub
Sub Command6_Click ()
command1(1).caption = "100"
command1(2).caption = "200"
command1(3).caption = "300"
command1(4).caption = "400"
command1(5).caption = "500"
End Sub
Sub Command7_Click ()
command1(1).caption = "200"
command1(2).caption = "400"
command1(3).caption = "600"
command1(4).caption = "800"
command1(5).caption = "1000"
End Sub
Sub ex_Click ()
Unload form1
End Sub
Sub general_Click ()
MsgBox "For help on Jeopardy Scorekeeper, use Windows Notepad to open the file JEOPKEEP.TXT.", 48, "Jeopardy Scorekeeper"
End Sub
Sub gray_Click ()
red.checked = 0
yellow.checked = 0
green.checked = 0
blue.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = -1
white.checked = 0
k = &HC0C0C0
form1.backcolor = k
label1.backcolor = k
label2.backcolor = k
label3.backcolor = k
label4.backcolor = k
End Sub
Sub green_Click ()
red.checked = 0
yellow.checked = 0
green.checked = -1
blue.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
white.checked = 0
k = &HFF00&
form1.backcolor = k
label1.backcolor = k
label2.backcolor = k
label3.backcolor = k
label4.backcolor = k
End Sub
Sub new_Click ()
t = 0
For q = 1 To 5
command1(q).enabled = -1
Next q
command2.enabled = -1
command3.enabled = -1
command4.enabled = -1
command5.enabled = -1
command6.enabled = -1
command7.enabled = -1
command1(1).caption = "100"
command1(2).caption = "200"
command1(3).caption = "300"
command1(4).caption = "400"
command1(5).caption = "500"
label3.caption = ""
If savetot.checked = 0 Then label2.caption = "0"
direc.caption = "Please choose your wager or click on the Daily Double button. If Double Jeopardy or Final Jeopardy starts, click on the approppriate button."
(.txt)